home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Bus / T-Z / Teleprint 1.0.cpt / TelePrint Express™ 1.0 / background_12327.xml < prev    next >
Extensible Markup Language  |  1992-01-28  |  7KB  |  141 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>12327</id>
  5.     <filler1>0</filler1>
  6.     <bitmap>BMAP_45231.pbm</bitmap>
  7.     <cantDelete> <false /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <link rel="stylesheet" type="text/css" href="stylesheet_33153.css" />
  11.     <part>
  12.         <id>1</id>
  13.         <type>button</type>
  14.         <visible> <true /> </visible>
  15.         <reserved5> 0 </reserved5>
  16.         <reserved4> 0 </reserved4>
  17.         <reserved3> 0 </reserved3>
  18.         <reserved2> 0 </reserved2>
  19.         <reserved1> 0 </reserved1>
  20.         <enabled> <true /> </enabled>
  21.         <rect>
  22.             <left>465</left>
  23.             <top>295</top>
  24.             <right>506</right>
  25.             <bottom>336</bottom>
  26.         </rect>
  27.         <style>transparent</style>
  28.         <showName> <false /> </showName>
  29.         <highlight> <false /> </highlight>
  30.         <autoHighlight> <true /> </autoHighlight>
  31.         <sharedHighlight> <true /> </sharedHighlight>
  32.         <family>0</family>
  33.         <titleWidth>0</titleWidth>
  34.         <icon>27009</icon>
  35.         <textAlign>center</textAlign>
  36.         <font>Chicago</font>
  37.         <textSize>12</textSize>
  38.         <textStyle>plain</textStyle>
  39.         <name></name>
  40.         <script>on mouseUpgoNextend mouseUp</script>
  41.     </part>
  42.     <part>
  43.         <id>2</id>
  44.         <type>button</type>
  45.         <visible> <true /> </visible>
  46.         <reserved5> 0 </reserved5>
  47.         <reserved4> 0 </reserved4>
  48.         <reserved3> 0 </reserved3>
  49.         <reserved2> 0 </reserved2>
  50.         <reserved1> 0 </reserved1>
  51.         <enabled> <true /> </enabled>
  52.         <rect>
  53.             <left>422</left>
  54.             <top>295</top>
  55.             <right>463</right>
  56.             <bottom>336</bottom>
  57.         </rect>
  58.         <style>transparent</style>
  59.         <showName> <false /> </showName>
  60.         <highlight> <false /> </highlight>
  61.         <autoHighlight> <true /> </autoHighlight>
  62.         <sharedHighlight> <true /> </sharedHighlight>
  63.         <family>0</family>
  64.         <titleWidth>0</titleWidth>
  65.         <icon>9301</icon>
  66.         <textAlign>center</textAlign>
  67.         <font>Chicago</font>
  68.         <textSize>12</textSize>
  69.         <textStyle>plain</textStyle>
  70.         <name></name>
  71.         <script>on mouseUpgoPrevend mouseUp</script>
  72.     </part>
  73.     <part>
  74.         <id>3</id>
  75.         <type>field</type>
  76.         <visible> <true /> </visible>
  77.         <dontWrap> <false /> </dontWrap>
  78.         <dontSearch> <false /> </dontSearch>
  79.         <sharedText> <false /> </sharedText>
  80.         <fixedLineHeight> <true /> </fixedLineHeight>
  81.         <autoTab> <true /> </autoTab>
  82.         <lockText> <true /> </lockText>
  83.         <rect>
  84.             <left>8</left>
  85.             <top>281</top>
  86.             <right>320</right>
  87.             <bottom>335</bottom>
  88.         </rect>
  89.         <style>transparent</style>
  90.         <autoSelect> <false /> </autoSelect>
  91.         <showLines> <false /> </showLines>
  92.         <wideMargins> <true /> </wideMargins>
  93.         <multipleLines> <false /> </multipleLines>
  94.         <reservedFamily> 0 </reservedFamily>
  95.         <titleWidth>0</titleWidth>
  96.         <icon>0</icon>
  97.         <textAlign>center</textAlign>
  98.         <font>Geneva</font>
  99.         <textSize>9</textSize>
  100.         <textStyle>plain</textStyle>
  101.         <textHeight>12</textHeight>
  102.         <name>Prompt</name>
  103.         <script></script>
  104.     </part>
  105.     <part>
  106.         <id>5</id>
  107.         <type>field</type>
  108.         <visible> <true /> </visible>
  109.         <dontWrap> <false /> </dontWrap>
  110.         <dontSearch> <false /> </dontSearch>
  111.         <sharedText> <false /> </sharedText>
  112.         <fixedLineHeight> <true /> </fixedLineHeight>
  113.         <autoTab> <false /> </autoTab>
  114.         <lockText> <true /> </lockText>
  115.         <rect>
  116.             <left>133</left>
  117.             <top>2</top>
  118.             <right>512</right>
  119.             <bottom>19</bottom>
  120.         </rect>
  121.         <style>transparent</style>
  122.         <autoSelect> <false /> </autoSelect>
  123.         <showLines> <false /> </showLines>
  124.         <wideMargins> <false /> </wideMargins>
  125.         <multipleLines> <false /> </multipleLines>
  126.         <reservedFamily> 0 </reservedFamily>
  127.         <titleWidth>0</titleWidth>
  128.         <icon>0</icon>
  129.         <textAlign>left</textAlign>
  130.         <font>Helvetica</font>
  131.         <textSize>18</textSize>
  132.         <textStyle>italic</textStyle>
  133.         <textStyle>bold</textStyle>
  134.         <textHeight>18</textHeight>
  135.         <name></name>
  136.         <script></script>
  137.     </part>
  138.     <name>SendOrSave</name>
  139.     <script>on handleOrder-- global ImageFilesglobal OrderIDsend "startOrder" to this cardset cursor to busylog "Sending order"send "doOrder" to this cardsend "another" to this cardlog "Sending comments"send "doComments" to this cardput getFileNames() into myFilesrepeat with i = 1 to number of lines in myFilesset cursor to busyget line i of myFilesif it is empty then next repeatsend "another"send ("doFile" && quote&it&quote) to this cardend repeatsend "finishOrder" to this cardend handleOrderon doOrderglobal OrderStatusglobal GroupNameglobal BillToNameglobal BillToAttnglobal BillToAddrglobal BillToCityglobal BillToStateglobal BillToZIPglobal BillToPhoneglobal ShipToNameglobal ShipToAttnglobal ShipToAddrglobal ShipToCityglobal ShipToStateglobal ShipToZIPglobal ShipToPhoneglobal CardKindglobal CardNoglobal ExpMonthglobal ExpYearglobal NameOnCardglobal Itemsglobal SubTotalglobal Discountglobal Taxglobal PHglobal Totalglobal ItemsDetailglobal VendorIDglobal ShirtSizeglobal Commentsget "TelePrint 1.0" & returnget it & "Source:" && GroupName & returnget it & "Bill To:" & returnget it & "Company Name:" && BillToName & returnget it & "Persons Name:" && BillToAttn & returnget it & "Addr1:" && line 1 of BillToAddr & returnget it & "Addr2:" && line 2 of BillToAddr & returnget it & "City:" && BillToCity & returnget it & "State:" && BillToState & returnget it & "ZIP:" && BillToZIP & returnget it & "Phone:" && BillToPhone & returnget it & "Ship To:" & returnget it & "Company Name:" && ShipToName & returnget it & "Persons Name:" && ShipToAttn & returnget it & "Addr1:" && line 1 of ShipToAddr & returnget it & "Addr2:" && line 2 of ShipToAddr & returnget it & "City:" && ShipToCity & returnget it & "State:" && ShipToState & returnget it & "ZIP:" && ShipToZIP & returnget it & "Phone:" && ShipToPhone & returnget it & "Card Info" & returnget it & CardKind & returnget it & CardNo & returnget it & ExpMonth & returnget it & ExpYear & returnget it & NameOnCard & returnget it & "Order:" & returnget it & Items & returnget it & "SubTotal:" && SubTotal & returnget it & "Discount:" && Discount & returnget it & "Tax:" && Tax & returnget it & "PH:" && PH & returnget it & "Total:" && Total & return--  get it & "Shirt Size:" && ShirtSize & returnsendmsg VendorID&"."&the seconds, it & ItemsDetailend doOrderon doCommentsglobal Commentsglobal ShirtSizeget Commentsget it & return & "Shirt Size:" && ShirtSize & returnsendmsg VendorID&"."&the seconds, itend doCommentson sendMsg header,bodysend "sendMsg header,body" to this cardend sendMsgfunction getFileNamesglobal ItemsDetailput empty into myList -- initializerepeat with i=1 to number of lines in ItemsDetailset cursor to busyget number of chars in line i of ItemsDetailif line i of ItemsDetail contains "¬ßLogoFile: " thenget char 12 to it of line i of ItemsDetailif it contains ":" thenput it & return after myListend ifelse if line i of ItemsDetail contains "¬ßArtworkFile: " thenget char 15 to it of line i of ItemsDetailput it & return after myListend ifend repeatreturn myListend getFileNames</script>
  140. </background>
  141.